home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Productivity / Mathematica / Animations / B&W Movie next >
Text File  |  1989-11-04  |  5KB  |  84 lines
  1. (*^
  2.  
  3. ::[paletteColors = 128; 
  4.     fontset = title, "New York", 18, L2, center, bold, nohscroll;
  5.     fontset = subtitle, "New York", 14, L2, center, bold, nohscroll;
  6.     fontset = subsubtitle, "New York", 12, L2, center, bold, nohscroll;
  7.     fontset = section, "New York", 14, L2, bold, nohscroll, grayBox;
  8.     fontset = subsection, "New York", 12, L2, bold, nohscroll, blackBox;
  9.     fontset = subsubsection, "New York", 10, L2, bold, nohscroll, whiteBox;
  10.     fontset = text, "New York", 10, L2, nohscroll;
  11.     fontset = smalltext, "New York", 10, L2, nohscroll;
  12.     fontset = input, "Courier", 12, L2, bold, nowordwrap;
  13.     fontset = output, "Courier", 12, L2, nowordwrap;
  14.     fontset = message, "Courier", 12, L2, R65535, nowordwrap;
  15.     fontset = print, "Courier", 12, L2, nowordwrap;
  16.     fontset = info, "Courier", 12, L2, nowordwrap;
  17.     fontset = postscript, "Courier", 12, L2, nowordwrap;
  18.     fontset = name, "Geneva", 10, L2, italic, B65535, nohscroll;
  19.     fontset = header, "New York", 10, L2, nohscroll;
  20.     fontset = footer, "New York", 12, L2, center, nohscroll;
  21.     fontset = help, "Geneva", 10, L2, nohscroll;
  22.     fontset = clipboard, "New York", 12, L2;
  23.     fontset = completions, "New York", 12, L2;
  24.     fontset = network, "Courier", 10, L2, nowordwrap;
  25.     fontset = graphlabel, "Courier", 12, L2;
  26.     fontset = special1, "New York", 12, L2;
  27.     fontset = special2, "New York", 12, L2, center;
  28.     fontset = special3, "New York", 12, L2, right;
  29.     fontset = special4, "New York", 12, L2;
  30.     fontset = special5, "New York", 12, L2;]
  31. :[font = title; inactive; startGroup; ]
  32. Animated 3D Sine Wave
  33. (for B&W monitors)
  34. :[font = smalltext; inactive; ]
  35. This Notebook contains an animated "movie". To show the movie,
  36.   •  Scroll until the first graphics cell is completely visible in the window.
  37.       (The movie is shown in this cell.)
  38.   •  Select the movie by clicking the bracket that encloses its sequence of frames.
  39.       (This is the bracket whose bottom is angled.)
  40.   •  Type Y to start the movie.  A click anywhere inside the window will stop the animation.
  41. ;[s]
  42. 3:0,0;329,1;331,0;413,-1;
  43. 2:2,14,10,New York,0,10,0,0,0;1,15,12,Chicago,0,12,0,0,0;
  44. :[font = smalltext; inactive; ]
  45. See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction.   (The animation in this Notebook looks best when run cyclically.)
  46. ;[s]
  47. 3:0,0;13,1;29,0;196,-1;
  48. 2:2,14,10,New York,0,10,0,0,0;1,12,10,New York,1,10,0,0,0;
  49. :[font = input; startGroup; ]
  50. Do[Plot3D[Sin[x y], {x, -n, n}, {y, -n, n}], 
  51.    {n, 1, 3, 3/23}];
  52. :[font = postscript; inactive; PICT; pictureID = 22303; output; startGroup; Cclosed; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  53.  
  54. :[font = postscript; inactive; PICT; pictureID = 10894; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  55.  
  56. :[font = postscript; inactive; PICT; pictureID = 13675; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  57.  
  58. :[font = postscript; inactive; PICT; pictureID = 3244; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  59.  
  60. :[font = postscript; inactive; PICT; pictureID = 18221; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  61.  
  62. :[font = postscript; inactive; PICT; pictureID = 6268; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  63.  
  64. :[font = postscript; inactive; PICT; pictureID = 24799; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  65.  
  66. :[font = postscript; inactive; PICT; pictureID = 24269; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  67.  
  68. :[font = postscript; inactive; PICT; pictureID = 30107; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  69.  
  70. :[font = postscript; inactive; PICT; pictureID = 15949; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  71.  
  72. :[font = postscript; inactive; PICT; pictureID = 2448; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  73.  
  74. :[font = postscript; inactive; PICT; pictureID = 20665; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  75.  
  76. :[font = postscript; inactive; PICT; pictureID = 11349; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  77.  
  78. :[font = postscript; inactive; PICT; pictureID = 19268; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  79.  
  80. :[font = postscript; inactive; PICT; pictureID = 12014; output; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  81.  
  82. :[font = postscript; inactive; PICT; pictureID = 13757; output; endGroup; endGroup; endGroup; pictureLeft = 58; pictureWidth = 279; pictureHeight = 279; preserveAspect; ]
  83.  
  84. ^*)